home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP Error Reporting.xpl < prev    next >
Text File  |  2004-03-01  |  1KB  |  36 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Microsoft Office\MS Office XP\Common"
  5. "UIPATH 2"="Virtual Paranoia\Automatic Error Reporting"
  6. "NAME"="Office XP Error Reporting"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.04"
  9. "TEXT 1"="Enable Error Reporting for Office XP"
  10. "DESCRIPTION 1"="When an application from Office XP crashes, it asks you if you would like to send an error report to Microsoft. Doing this may help the Office development team improve stability in future releases."
  11. "DESCRIPTION 2"="If you want to make sure that no data is sent to Microsoft through this feature, simply disable it."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=""
  16.  
  17. sV1="HKLM\Software\Policies\Microsoft\Office\10.0\Common\DWNeverUpload"
  18.  
  19. SUB Plugin_Initialize  
  20.  i=RegReadValue(sV1)
  21.  if i<>1 then SetUIElement 1,true
  22. END SUB
  23.  
  24. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  25.  if GetUIElement(1)=true then 
  26.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  27.  else
  28.     Call RegWriteValue(sV1,1,2)
  29.  end if
  30.  
  31. END SUB
  32.  
  33. SUB Plugin_Terminate
  34. END SUB
  35.  
  36.